home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.2 / Group1 / Tarihdll.dll / 0 / RCDATA / TVERGUNFORM / TVERGUNFORM.txt
Text File  |  1998-07-24  |  11KB  |  474 lines
  1. object VerGunForm: TVerGunForm
  2.   Left = 14
  3.   Top = 98
  4.   Width = 605
  5.   Height = 291
  6.   Caption = 'Veresiye Sat∩┐╜∩┐╜ Fiyatlar∩┐╜n∩┐╜ G∩┐╜ncelleme'
  7.   Color = clTeal
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = [fsBold]
  12.   OnClose = FormClose
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 14
  16.   object Label9: TLabel
  17.     Left = 11
  18.     Top = 63
  19.     Width = 42
  20.     Height = 13
  21.     AutoSize = False
  22.     Caption = 'Borcu'
  23.     FocusControl = EditBORC
  24.     Font.Color = clWhite
  25.     Font.Height = -11
  26.     Font.Name = 'Arial'
  27.     Font.Style = [fsBold]
  28.     ParentFont = False
  29.   end
  30.   object Label3: TLabel
  31.     Left = 376
  32.     Top = 11
  33.     Width = 50
  34.     Height = 13
  35.     AutoSize = False
  36.     Caption = 'Sat∩┐╜∩┐╜ No'
  37.     Font.Color = clWhite
  38.     Font.Height = -11
  39.     Font.Name = 'Arial'
  40.     Font.Style = [fsBold]
  41.     ParentFont = False
  42.   end
  43.   object Label2: TLabel
  44.     Left = 9
  45.     Top = 11
  46.     Width = 57
  47.     Height = 13
  48.     AutoSize = False
  49.     Caption = 'Cari Kodu'
  50.     Font.Color = clWhite
  51.     Font.Height = -11
  52.     Font.Name = 'Arial'
  53.     Font.Style = [fsBold]
  54.     ParentFont = False
  55.   end
  56.   object Label12: TLabel
  57.     Left = 262
  58.     Top = 64
  59.     Width = 35
  60.     Height = 13
  61.     AutoSize = False
  62.     Caption = 'Bilgi'
  63.     Font.Color = clWhite
  64.     Font.Height = -11
  65.     Font.Name = 'Arial'
  66.     Font.Style = [fsBold]
  67.     ParentFont = False
  68.   end
  69.   object Label6: TLabel
  70.     Left = 293
  71.     Top = 11
  72.     Width = 73
  73.     Height = 13
  74.     AutoSize = False
  75.     Caption = '∩┐╜∩┐╜lem Tarihi'
  76.     Font.Color = clWhite
  77.     Font.Height = -11
  78.     Font.Name = 'Arial'
  79.     Font.Style = [fsBold]
  80.     ParentFont = False
  81.   end
  82.   object Label7: TLabel
  83.     Left = 173
  84.     Top = 64
  85.     Width = 46
  86.     Height = 13
  87.     AutoSize = False
  88.     Caption = 'VADE'
  89.     Font.Color = clWhite
  90.     Font.Height = -11
  91.     Font.Name = 'Arial'
  92.     Font.Style = [fsBold]
  93.     ParentFont = False
  94.   end
  95.   object Label5: TLabel
  96.     Left = 384
  97.     Top = 116
  98.     Width = 81
  99.     Height = 13
  100.     AutoSize = False
  101.     Caption = 'Toplam Fark'
  102.     FocusControl = EditBORC
  103.     Font.Color = clWhite
  104.     Font.Height = -11
  105.     Font.Name = 'Arial'
  106.     Font.Style = [fsBold]
  107.     ParentFont = False
  108.   end
  109.   object LabelFARK: TLabel
  110.     Left = 383
  111.     Top = 132
  112.     Width = 212
  113.     Height = 16
  114.     Alignment = taRightJustify
  115.     AutoSize = False
  116.     Caption = 'LabelFARK'
  117.     Color = clYellow
  118.     ParentColor = False
  119.   end
  120.   object Label1: TLabel
  121.     Left = 92
  122.     Top = 11
  123.     Width = 57
  124.     Height = 13
  125.     AutoSize = False
  126.     Caption = 'Cari Ad∩┐╜'
  127.     Font.Color = clWhite
  128.     Font.Height = -11
  129.     Font.Name = 'Arial'
  130.     Font.Style = [fsBold]
  131.     ParentFont = False
  132.   end
  133.   object DBGridSAT: TDBGrid
  134.     Left = 0
  135.     Top = 150
  136.     Width = 597
  137.     Height = 114
  138.     Align = alBottom
  139.     DataSource = DataSource3
  140.     ReadOnly = True
  141.     TabOrder = 0
  142.     TitleFont.Color = clWindowText
  143.     TitleFont.Height = -11
  144.     TitleFont.Name = 'Arial'
  145.     TitleFont.Style = [fsBold]
  146.   end
  147.   object BitBtn1: TBitBtn
  148.     Left = 6
  149.     Top = 115
  150.     Width = 237
  151.     Height = 25
  152.     Caption = 'Eski Fiyatlar∩┐╜ Yenile ve Borcuna Fark∩┐╜ Ekle'
  153.     TabOrder = 1
  154.     OnClick = BitBtn1Click
  155.   end
  156.   object DevamBtn: TBitBtn
  157.     Left = 503
  158.     Top = 7
  159.     Width = 76
  160.     Height = 25
  161.     Hint = 'Sonraki Fyt. De∩┐╜i∩┐╜imi'
  162.     Caption = '&Sonraki '
  163.     Font.Color = clNavy
  164.     Font.Height = -11
  165.     Font.Name = 'Arial Tur'
  166.     Font.Style = [fsBold]
  167.     ParentFont = False
  168.     ParentShowHint = False
  169.     ShowHint = True
  170.     TabOrder = 2
  171.     OnClick = DevamBtnClick
  172.     Glyph.Data = {
  173.       78010000424D7801000000000000760000002800000020000000100000000100
  174.       04000000000000000000120B0000120B00000000000000000000000000000000
  175.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  176.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  177.       3333333333333333333333333333333333333333333333333333333333333333
  178.       3333333333333333333333333333333333333333333FF3333333333333003333
  179.       3333333333773FF3333333333309003333333333337F773FF333333333099900
  180.       33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
  181.       99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
  182.       33333333337F3F77333333333309003333333333337F77333333333333003333
  183.       3333333333773333333333333333333333333333333333333333333333333333
  184.       33333333333333333333333333333333333333333333333333330000}
  185.     NumGlyphs = 2
  186.     Spacing = 3
  187.   end
  188.   object EditBORC: TDBEdit
  189.     Left = 8
  190.     Top = 77
  191.     Width = 153
  192.     Height = 22
  193.     Color = clGray
  194.     DataField = 'BORC'
  195.     DataSource = SRCHrkTab
  196.     Font.Color = clWhite
  197.     Font.Height = -11
  198.     Font.Name = 'Arial'
  199.     Font.Style = [fsBold]
  200.     MaxLength = 0
  201.     ParentFont = False
  202.     ReadOnly = True
  203.     TabOrder = 3
  204.   end
  205.   object EditALSATNO: TDBEdit
  206.     Left = 373
  207.     Top = 24
  208.     Width = 65
  209.     Height = 22
  210.     Color = clSilver
  211.     DataField = 'ALSATNO'
  212.     MaxLength = 0
  213.     ReadOnly = True
  214.     TabOrder = 4
  215.   end
  216.   object EditCARIKOD: TDBEdit
  217.     Left = 6
  218.     Top = 24
  219.     Width = 67
  220.     Height = 22
  221.     Color = clSilver
  222.     DataField = 'CARIKOD'
  223.     DataSource = SRCHrkTab
  224.     MaxLength = 0
  225.     ReadOnly = True
  226.     TabOrder = 5
  227.   end
  228.   object EditBILGI: TDBEdit
  229.     Left = 259
  230.     Top = 77
  231.     Width = 230
  232.     Height = 22
  233.     DataField = 'BILGI'
  234.     DataSource = SRCHrkTab
  235.     MaxLength = 0
  236.     TabOrder = 6
  237.   end
  238.   object EditTARIH: TDBEdit
  239.     Left = 293
  240.     Top = 24
  241.     Width = 65
  242.     Height = 22
  243.     Color = clSilver
  244.     DataField = 'TARIH'
  245.     DataSource = SRCHrkTab
  246.     MaxLength = 0
  247.     ReadOnly = True
  248.     TabOrder = 7
  249.   end
  250.   object EditVADE: TDBEdit
  251.     Left = 171
  252.     Top = 77
  253.     Width = 65
  254.     Height = 22
  255.     DataField = 'VADE'
  256.     DataSource = SRCHrkTab
  257.     MaxLength = 0
  258.     TabOrder = 8
  259.   end
  260.   object BitBtn2: TBitBtn
  261.     Left = 503
  262.     Top = 39
  263.     Width = 76
  264.     Height = 25
  265.     Hint = 'Sonrakine Ge∩┐╜me'
  266.     Caption = '&Dur'
  267.     Font.Color = clNavy
  268.     Font.Height = -11
  269.     Font.Name = 'Arial Tur'
  270.     Font.Style = [fsBold]
  271.     ParentFont = False
  272.     ParentShowHint = False
  273.     ShowHint = True
  274.     TabOrder = 9
  275.     OnClick = BitBtn2Click
  276.     Kind = bkCancel
  277.   end
  278.   object EditADI: TEdit
  279.     Left = 88
  280.     Top = 24
  281.     Width = 185
  282.     Height = 22
  283.     Color = clSilver
  284.     ReadOnly = True
  285.     TabOrder = 10
  286.   end
  287.   object QVerFark: TQuery
  288.     AfterOpen = QVerFarkAfterOpen
  289.     DatabaseName = 'ECZ'
  290.     Params.Data = {01000200046B6F64750001020030000101046B6F64750001020030000101}
  291.     SQL.Strings = (
  292.       'SELECT '
  293.       'SATIS.SATISNO,'
  294.       'HAREKET.ALSATNO,'
  295.       'HAREKET.ALSAT,'
  296.       'HAREKET.CARIKOD,'
  297.       'SATIS.ILACNO,'
  298.       'SATIS.FIYAT,'
  299.       'URUN.FIYAT'
  300.       'FROM '
  301.       'HAREKET,SATIS,URUN'
  302.       'WHERE '
  303.       '(HAREKET.CARIKOD=:kodu OR :kodu IS NULL) AND'
  304.       '(HAREKET.ALSATNO IS NOT NULL) AND'
  305.       '(HAREKET.ALSAT='#39'S'#39') AND'
  306.       '(HAREKET.TUR='#39'M'#39') AND'
  307.       '((HAREKET.NIHAI=0) OR (HAREKET.NIHAI IS NULL)) AND'
  308.       '(HAREKET.ALSATNO=SATIS.SATISNO) AND'
  309.       '(SATIS.ILACNO=URUN.ILACNO AND SATIS.FIYAT<URUN.FIYAT)'
  310.       'ORDER BY SATIS.SATISNO')
  311.     Left = 432
  312.     Top = 48
  313.     object QVerFarkALSATNO: TFloatField
  314.       FieldName = 'ALSATNO'
  315.       Visible = False
  316.     end
  317.     object QVerFarkALSAT: TStringField
  318.       FieldName = 'ALSAT'
  319.       Visible = False
  320.       Size = 1
  321.     end
  322.     object QVerFarkCARIKOD: TStringField
  323.       FieldName = 'CARIKOD'
  324.       Size = 11
  325.     end
  326.     object QVerFarkILACNO: TIntegerField
  327.       FieldName = 'ILACNO'
  328.     end
  329.     object QVerFarkFIYAT: TCurrencyField
  330.       FieldName = 'FIYAT'
  331.     end
  332.     object QVerFarkFIYAT_1: TCurrencyField
  333.       FieldName = 'FIYAT_1'
  334.     end
  335.     object QVerFarkSATISNO: TFloatField
  336.       FieldName = 'SATISNO'
  337.     end
  338.   end
  339.   object DataSource1: TDataSource
  340.     DataSet = QVerFark
  341.     Left = 408
  342.     Top = 51
  343.   end
  344.   object HrkTab: TTable
  345.     DatabaseName = 'ECZ'
  346.     IndexName = 'HALSAT'
  347.     MasterFields = 'SATISNO;ALSAT'
  348.     MasterSource = DataSource1
  349.     TableName = 'Hareket.DB'
  350.     Left = 520
  351.     Top = 128
  352.     object HrkTabCARIKOD: TStringField
  353.       FieldName = 'CARIKOD'
  354.       Size = 11
  355.     end
  356.     object HrkTabBORC: TCurrencyField
  357.       FieldName = 'BORC'
  358.     end
  359.     object HrkTabNIHAI: TSmallintField
  360.       FieldName = 'NIHAI'
  361.     end
  362.     object HrkTabBILGI: TStringField
  363.       FieldName = 'BILGI'
  364.       Size = 36
  365.     end
  366.     object HrkTabTARIH: TDateField
  367.       FieldName = 'TARIH'
  368.     end
  369.     object HrkTabALSATNO: TFloatField
  370.       FieldName = 'ALSATNO'
  371.     end
  372.     object HrkTabHAREKNO: TFloatField
  373.       FieldName = 'HAREKNO'
  374.       Visible = False
  375.     end
  376.     object HrkTabALSAT: TStringField
  377.       FieldName = 'ALSAT'
  378.       Visible = False
  379.       Size = 1
  380.     end
  381.     object HrkTabVADE: TDateField
  382.       FieldName = 'VADE'
  383.     end
  384.     object HrkTabTUR: TStringField
  385.       FieldName = 'TUR'
  386.       Size = 1
  387.     end
  388.   end
  389.   object SRCHrkTab: TDataSource
  390.     DataSet = HrkTab
  391.     Left = 552
  392.     Top = 128
  393.   end
  394.   object SatTab: TTable
  395.     OnCalcFields = SatTabCalcFields
  396.     DatabaseName = 'ECZ'
  397.     IndexFieldNames = 'SATISNO'
  398.     MasterFields = 'ALSATNO'
  399.     MasterSource = SRCHrkTab
  400.     TableName = 'SATIS.DB'
  401.     Left = 8
  402.     Top = 200
  403.     object SatTabSIRANOURUN: TIntegerField
  404.       DisplayLabel = 'S∩┐╜ra'
  405.       DisplayWidth = 4
  406.       FieldName = 'SIRANOURUN'
  407.     end
  408.     object SatTabILAD: TStringField
  409.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  410.       DisplayWidth = 36
  411.       FieldName = 'ILAD'
  412.       Lookup = True
  413.       LookupDataSet = UrBak
  414.       LookupKeyFields = 'ILACNO'
  415.       LookupResultField = 'ILACAD'
  416.       KeyFields = 'ILACNO'
  417.     end
  418.     object SatTabILACNO: TIntegerField
  419.       FieldName = 'ILACNO'
  420.       Visible = False
  421.     end
  422.     object SatTabFIYAT: TCurrencyField
  423.       DisplayLabel = 'Eski Fiyat∩┐╜'
  424.       DisplayWidth = 15
  425.       FieldName = 'FIYAT'
  426.     end
  427.     object SatTabYeniFiyat: TCurrencyField
  428.       DisplayWidth = 15
  429.       FieldName = 'YeniFiyat'
  430.       Lookup = True
  431.       LookupDataSet = UrBak
  432.       LookupKeyFields = 'ILACNO'
  433.       LookupResultField = 'FIYAT'
  434.       KeyFields = 'ILACNO'
  435.     end
  436.     object SatTabMIKTAR: TIntegerField
  437.       DisplayLabel = 'Adet'
  438.       DisplayWidth = 4
  439.       FieldName = 'MIKTAR'
  440.     end
  441.     object SatTabSATISNO: TFloatField
  442.       FieldName = 'SATISNO'
  443.       Visible = False
  444.     end
  445.     object SatTabFARK: TCurrencyField
  446.       Calculated = True
  447.       DisplayWidth = 15
  448.       FieldName = 'FARK'
  449.     end
  450.   end
  451.   object DataSource3: TDataSource
  452.     DataSet = SatTab
  453.     Left = 56
  454.     Top = 192
  455.   end
  456.   object UrBak: TTable
  457.     DatabaseName = 'ECZ'
  458.     ReadOnly = True
  459.     TableName = 'Urun.DB'
  460.     Left = 488
  461.     Top = 208
  462.     object UrBakILACAD: TStringField
  463.       FieldName = 'ILACAD'
  464.       Size = 36
  465.     end
  466.     object UrBakILACNO: TAutoIncField
  467.       FieldName = 'ILACNO'
  468.     end
  469.     object UrBakFIYAT: TCurrencyField
  470.       FieldName = 'FIYAT'
  471.     end
  472.   end
  473. end
  474.